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Does Your Mailing 
Label Say RENEW? 


If the mailing label on this issue says 
RENEW, your free subscription has expired. 
To avoid missing the next issue, renew 
immediately by returning this coupon! 


Name : 


Company 
Address: 


City/ St at e/ZIP 


Transaction Logging 

Every data processing manager's worst fear is a crash—a 
crash that destroys files and corrupts data. In the worst case, 
a crash is so bad that the system must be completely reloaded 
from the last backup copy made of all files. When that 
happens, all work that was done on the system since that last 
copy was made is lost. 

If backups are made only once a day, and the system has 
a dozen terminals, and each terminal is active half the time 
during one eight hour shift per day, then as much as 48 people- 
hours of work might be lost and forced to be redone if the 
system crashes and must be reloaded from the previous day's 
backup. 

A good way to prevent having to retreat to a backup after a 
serious crash is to use a transaction log, which is a file that 
records every instance of any item being written or deleted in a 
file. If the system crashes, and if the transaction log can be 
recovered, the system can be brought back to the state it was 
in just before the crash occurred by first restoring the system 
using the last backup, then re-executing all transactions 
recorded in the transaction log. 

For example, here's a simple application program that 
creates and deletes records in a customer file: 

OPEN "CUST" TO CFILE ELSE STOP 
LOOP 

CRT "CUSTOMER ID": 

INPUT ID 
UNTIL ID="" DO 

READ CUST FROM CFILE, ID ELSE CUST="" 

CRT "OLD NAME & ADDRESS=":CUST 
CRT "NEW NAME & ADDRESS": 

INPUT NEW 

IF NEW #"" THEN CUST=NEW 
CRT "FILE OR DROP": 

INPUT COMMAND 

IF COMMAND="FILE" THEN WRITE CUST ON CFILE,ID 
IF COMMAND="DROP" THEN DELETE CFILE,ID 
REPEAT 
STOP 

Imagine the above program being used all day to edit the 
customer file, while similar programs are simultaneously used 
for editing payroll, purchasing, inventory, and other files. If the 
system crashes, there's no possible way to easily determine 
what items were added or dropped to all those files since the 
last backup was made. (Note that even if each item is time- 
stamped every time it is written, there's still no evidence left to 
indicate what deletions took place.) 

But imagine a small subprogram like the following: 


Telephone:_ 

I use the Pick operating system and my mailing 
address is in the USA. Please continue sending 
me Pragma's Product Profiles free of charge. 

Signature:__ 

Date:_ 

Return this form to: 

Pragma • 207 Granada Drive • Aptos, CA 95003 




SUBROUTINE LOGIT(LOG.FILE,TYPE,FILE,ID,ITEM) 
LOOP 

L.ID=TYPE:"*":FILE:"*":ID:"*":DATE():"*":TIME() 

READU LOG FROM LOG.FILE,L.ID ELSE LOG="" 

UNTIL LOG="" DO 
RELEASE LOG.FILE,L.ID 
REPEAT 

WRITE ITEM ON LOG.FILE,L.ID 
RETURN 

By calling the above LOGIT routine every time an item is 
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The Password 




Enter the World of PICK Through a Complete Electronic Learning System 


PROF is a hands-on, interactive learning system that will get you up 
to speed on PICK, quickly and easily. It’s clever, entertaining, and all 
learning is done right on the terminal. 

PROF leads you through simulated, HANDS-ON WORK SESSIONS 
in which you actively participate. You try every important command, 
and carefully review the way the system responds to each. It all hap¬ 
pens right on the terminal. There is no book to hold on your lap. 

PROF contains material that is suitable for both users and technical 
personnel. Give it to your application users. Use it to train new analysts 
and programmers. 

PROF allows you to learn at your own pace. You can follow the sug¬ 
gested order of instruction, or quickly jump from “page” to “page”.. .just 
like a book. 

PROF has an Electronic Master Index which works just like the index 
at the back of a book. You can peruse the alphabetical list of subjects, 
then jump right into any lesson you desire. 


PROF tells you exactly what to type. It then “checks” off each character 
as you type the right key. If you touch the wrong key, you are reminded 
by a single “beep.” Every keystroke is screened electronically. You can¬ 
not make a mistake. 


PROF covers all important aspects of PICK. This includes: 
TCL Database Concepts 

EDITOR PROC 

ACCESS DATA/BASIC 


PROF is customized. There is a different version for each manufac¬ 
turer of PICK-based equipment, including: 


Ultimate 

Microdata 

ADDS 

CDI 

Datamedia 


General Automation 

Evolution 

Pertec 

Altos 

PICK PC-XT 


YES! Please send me more information about PROF. 


Name 


Company. 
Address _ 
City_ 


State 


Zip 


Phone( 

I- 


You can order PROF by writing or calling us at 

CRESCEIMDO Associates. Inc. 

24350 JOY ROAD, SUITE 7 
REDFORD TOWNSHIP, MICHIGAN 48239 
(313) 537-1919 





























Unlock The 
Secrets In 
Vour Computer! 

Progmo is a 48-page journal for Pick users published quarterly 
from fiugust 1982 through February 1984. €ach issue is packed 
with software and helpful information, including complete and 
debugged program listings and detailed, explanatory articles 
for readers at all levels of experience. Order your issues to¬ 
day and begin unlocking the secrets in your Pick system! 


Pragma #1, August 1982: Welcome to Pragma • ZIP Code File Design • A Program 

i r\ it ;: 

Memor ■ 1 I ■■ ■ ■ I I H Miss¬ 

ing ChcmJ M m ■ J \ M II ■ Uding 
6NGUS ........ Jell • 


Tope Handling 
Gome. 


Patching the €xit Problem in 3.2 SCR€€NPRO(TM) • The Shell 


Pragma #2, November 1982: We Hove Liftoff • A Modulo Setting Program • Slack 
Box Formatting • TflIM.DCLIM and PROFIL6 Utilities • SVSMAP, A Cross-Reference 
System: File Format Input • Galinski Hamburg User Profile • LOOP vs. LOCATC 
Benchmarks • 25 Wish List Items • An Introduction to CNGLISH: Jargon • Proc Con¬ 
versions • VANILLA, The No-Frills Manufacturing System: Bill of Material Input • 14 
Queries • The Trouble Tree • 2 Letters • A Suuitchbox for 32 Ports • Security and 
the DATA/BASIC(TM) Programmer • The Cookie Game • Some Neuu Subscribers. 

Pragma #3, February 1983: Is Pragma a Rare Medium, Well Done? • €dit Aides • A 
Proc for Cross-Referencing Q-Pointers • SVSMAP, A Cross-Reference System: Re¬ 
maining File Input • Rainbouu Natural Foods User Profile • More BASIC Benchmark 
Comparisons • Justifying Ragged Output • 13 Wish List Items • Generating Monthly 
Column Headings • VANILLA, The No-Frills Manufacturing System: Purchasing • 5 
Queries • An Introduction to CNGLISH: More Commands • Shared Site Checklist • 
Converting Paint to Programs • 3 Letters • Generating Blank Forms • Animal, A 
Game that Learns • More Neuu Subscribers. 

Pragma #4, May 1983: Survey Says... • Pacific Valley Bank User Profile • SVSMAP, 
A Cross-Reference System: Diets and Procs • Uncompiling: Unassembling Stack 
Code • Left vs. Right Justification Benchmarks • 4 Wish List Items • A Comparison of 
BASIC Implementations • More Neuu Subscribers • An Undocumented Cdltor 
Capability • 3 Local User Group Reports • Avoiding Saved Lists uulth PQ-RCSCLCCT 
• Self-Documenting Reports • A Query • A Survey of Harduuare that Supports Pick- 
Style Softuuare • Printer Trade-Offs • An Introduction to CNGLISH: Finding files • A 
Letter • VANILLA, The No-Frills Manufacturing System: Purchase Order Cntry • The 
Suuatl Game. 


Pragma #5, August 1983: Happy Birthdayl • Interactive Systems Producer Profile • 
Uncompillng: Regenerating Source Code • A Day of Revelation • IBM Personal Com¬ 
puter vs. Microdata(TM) Reality^ Benchmarks • VANILLA, The No-Frills Manufactur¬ 
ing System: Receiving • 3 Wish List Items • An Introduction to CNGLISH: Being 
Choosy • Converting Manual Paint to Programs • 6 Local User Group Reports • 
More Neuu Subscribers • A Program that Reports File Pointer Locations • Boiler 
Plate Processing uuith Runoff(TM) • A Neuu Query and an Old Query Ansuuered • 
SVSMAP, A Cross-Reference System: Automation • Tape Types • 6 Letters • Per¬ 
muted Index to the First Four Issues of Pragma • Amazing, a Maze Game. 

Pragma #6, November 1983: Pick Pie Pictured • The Ubiquitous POINTCR-FILC • Un¬ 
compiling: Resolving Labels • An Introduction to CNGLISH: Syntax Overvieuu • Ac¬ 
cuSoft Producer Profile • Rounding Out 7 Benchmarks On 5 Machines • Designing 
Data Cntry Programs • 12 Wish List Items • GCT: An Input Processor • 5 Local User 
Group Reports • More Neuu Subscribers • Do Vou Knouu Vour Proc Limits? • 
VANILLA, The No-Frills Manufacturing System: Inspection • 2 Queries • Individual 
Accounts or Shared Accounts? • Lock Logic Illustrated • Passuuord Protection • Tuuo 
Undocumented Conversions • A Letter • Houu AMAZING Works. 

Pragma #7, February 1984: More Neuu Subscribers • A Neuu Machine Visits Pragma 
• Bantam Harduuare Overvieuu • Suppressing LOCKCD Clauses • An Introduction to 
CNGLISH: WITH, BV and TOTAL • Bantam Producer Profile • VANILLA, The No-Frills 
Manufacturing System: Disposition • A Bantam Diary • Neuu Benchmark Timings For 
8 More Machines • 6 Local User Group Reports • GCT: Source Code • A 
Preprocessor for Symbolic Statement Labels • 2 Wish List Items • 3 Queries • Ban¬ 
tam Softuuare Overvieuu • A Letter • The Slide Game. 


Send $25 for each 48-page back issue to: 


Pragma 

207 Granada Drive 
flptos, Cfl 95003 


written or deleted, the system can maintain a complete history 
of all transactions made. To use LOGIT, the customer file 
update program becomes: 

OPEN "LOG" TO LFILE ELSE STOP 
(SAME CODE AS BEFORE) 

INPUT NEW 

CRT "FILE OR DROP": 

INPUT COMMAND 
BREAK OFF 

IF COMMAND="FILE" THEN 
IF NEW #"" THEN CUST-NEW 
WRITE CUST ON CFILEJD 
CALL LOGIT(LFILE,"F","CUST",ID,CUST) 

END 

IF COMMAND="DROP" THEN 
DELETE CFILE,ID 

CALL LOGIT(LFILE,"D","CUST",ID,CUST) 

END 

BREAK ON 

(SAME CODE AS BEFORE) 

Notice how the original CUST value (not the NEW last 
minute change by the operator) is passed to LOGIT when an 
item is deleted, so that the LOG file will have an accurate 
record of exactly what the old data was. 

The LOG file should be cleared after each successful 
backup. Then, if all update programs are careful to call LOGIT 
every time an item is written or deleted, the LOG file will fill up 
with a complete profile of all activity since the last backup was 
made. If the system crashes so badly that it's necessary to 
restore the system from the last backup, first T-DUMP the LOG 
file to tape. (Even if a system is so badly damaged in a crash 
that it won't reboot, a good trick is to first reload a minimum 
system consisting of just the SYSPROG account with a tiny 
Master Dictionary containing only a handful of verbs and no 
files, so that as little as possible of the old system's files, 
especially LOG, are overwritten on disk. Then use the editor to 
manually create a D-pointer to the frames of the LOG file, using 
the base, modulo, and separation values from a recent file- 
save listing. Then T-DUMP the recovered LOG file, and finally 
restore the system using the last backup.) 

After restoring the system from the last backup, T-LOAD 
the LOG file back onto disk, SSELECT its items 
chronologically using the date and time saved in each LOG 
item id, and feed the selected list to a "refiling" program like the 
following: 

OPEN "LOG" TO LFILE ELSE STOP 
100 READNEXT LOG.ID ELSE STOP 
FNAME=FIELD(LOG.ID,"*",2) 

OPEN FNAME ELSE STOP "CAN’T OPEN ":FNAME 
ID=FIELD(LOG.ID,"*",3) 

TYPE=FIELD(LOG.ID,"*",1) 

BEGIN CASE 
CASE TYPE="F" 

READ LOG FROM LFILE,LOG.ID ELSE STOP 
WRITE LOG ON ID 
CASE TYPE="D" 

DELETE ID 

CASE 1 ; STOP "BAD LOG TYPE" 

END CASE 

DELETE LFILE,LOG.ID 
GO TO 100 
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Computer Systems 


If you are considering 
the purchase of a 
computer system, 
contact us. We usually 
have a variety of 
systems available for 
quick delivery We also 
stock new and used 
disk drives, tape 
sub-systems, memory, 


communications 
controllers and whatever 
else you may require. 

We also will provide 
useful information 
on the manufacturers’ 
product line, policies 
and license fees. 

And.. .we will 
take your existing system 
in trade but let 
you keep it during 
your conversion. 


A TELEPHONE CALL 
TO US COULD SAVE 
YOU A PILE OF MONEY! 

FOR PRIME: 

Don Shifris 

2001 E. Campbell Ave. 

Phoenix, AZ 85016 

(602) 957-0999 

FOR MICRODATA, ADDS 
MENTOR, GENERAL 
AUTOMATION ZEBRA, 
ULTIMATE AND OTHER 
PICK ™TYPE SYSTEMS: 

Bill Cargile 

783 Old Hickory Blvd. 

Brentwood, TN 37027 

(615)373-2570 



stsolution 


HAVING TROUBLE GETTING EVERYONE 

ON YOUR SYSTEM? 


SKP ELECTRONICS brings you a full line of switches designed 
to expand your PICK* or PICK-like system without expanding 
your budget. 

DATA PBX- Multi-port/multi-terminal contention switch 
PORT EXPANDER - Six terminals contend for two ports 
MPE/4 - Four terminals contend for one port 
MPE/3 - Up to three serial devices share one port 
ALPHA SWITCH - "Break-free", intelligent A/B switch 
PEEK AND POKE SWITCH - Intelligent multi-function switch 

For more information on these intelligent switches and other 
innovative data communications products, call or write: 


1232-E South Village Way 

_ Santa Ana, CA 92705 

elects onTcs (714)972-1727 Telex: 140476 TAB 




The PICK Peripheral Specialists’ 


'PICK is a trademark of PICK Systems, Irvine, CA 
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SO CAL FIELD SERVICE 
NATIONAL DEPOT SERVICE 


ATKIN JONES 

COMPUTER SERVICE 

(714) 953-4351 


FOR SALE 

MICRODATA 6000 Reality System 

128K MOS mem., 100MB disc, 16 ports, 1600 BPI tape. 

MICRODATA 9100 Sequel Demo System 

1024K MOS mem., 260MB disc, 16 ports, 
1600/3200 BPI tape. New warranty. 

Operating System for either - 35% off list. 

CALL: 1-212-947-1280 


^FREE Back Issues!^ 


r A few back issues of Pragma s Product Profiles are still 1 
available while supplies last. To receive your FREE 
copies, indicate which issues you need and send a stamped, 
self-addressed envelope to: 

Pragma • 207 Granada Dr. • Aptos CA 95003 

(Allow 1.5 oz. per issue to compute postage.) 


Issue 

Issue 

Issue 

Issue 

Issue 

Issue 

Issue 

Issue 

Issue 

Issue 

Issue 

Issue 

Issue 

Issue 


#7: Manufacturing Users And Vendors Wanted 

#8: A Look At ScreenPlay 

#10: Beyond The Power Of The Pick System 

#11: Open Architecture Status Report 

#12: Our Impressions Of The Zebra 750 

#13: What Should Standard Pick Be? 

#14: Our Third Annual Pick Hardware Survey 

#15: The Wonders Of A Software Upgrade 

#17: A READ Sometimes Fails 

#19: New Pick Book A Disappointment 

#21: Programming For Speed 

#22: How Files Grow 

#23: GA About To Release 3.2 

#24: Beyond The Power Of Pick, Revisited 



The refiling program repeats all the work done on the 
system since the last backup, thereby bringing all files back to 
the state they were in just before the crash occurred. 

Note that the LOG item identifiers are constructed in a way 
that assumes file names are unique throughout a system, even 
between accounts. If your system uses the same file name in 
different accounts, account names must be included in LOG 
item identifiers (and the refiling program changed accordingly), 
so that transaction items for one file can never be confused for 
another file. Also, using a one-second-resolution TIME 
function for building identifiers means that LOGIT prohibits 
updates to the same file item more than once per second. 

Also be sure that long file and item names don't cause a 
LOG identifier to be longer than the system limit, which is 
typically 50 characters. Note also that deletions technically 
don't have to save any item data in the LOG file, since the LOG 
id itself has enough information to allow the refiling program to 
re-enact the deletion. However, saving a LOG record for every 
delete (and assuming that records are never null) simplifies the 
LOOP test in LOGIT, since the presence of a record indicates 
a used id. Plus, to give an added level of confidence that 
refiling is proceeding correctly, the refiling program can be 
modified to confirm the data about to be deleted: 

READ LOG FROM LFILE,LOG.ID ELSE STOP 
BEGIN CASE 
CASE TYPE="F" 

WRITE LOG ON ID 
CASE TYPE="D" 

READ CURRENT FROM ID ELSE CURRENT^"" 

IF LOG # CURRENT THEN STOP "MISMATCH!" 

DELETE ID 

Ideally, the operating system itself should automatically 
maintain a transaction log, which would actually accumulate 
onto an always-mounted scratch tape to prevent possibly 
losing the history data along with the rest of the system when 
the inevitable crash finally occurs. But with a little effort, even 
a tape-based history can be accomplished right now on 
existing systems: update programs can fill a LOG file on disk 
as already described, while a separate process with a mounted 
tape periodically deletes the LOG items from disk and moves 
them to tape. A 



Pick™ 

MAILING LISTS 


Select from thousands of users 
Only 390 per name, 
postage included! 


P/Mail by Marianne 
1893 Nadina Street 
Seaside, CA 93955 
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Tired of waiting for 
your Pick computer to 
SORT or SELECT your 
large data files? 


Need to quickly find 
any attribute? Want to 
scroll files up or down, 
while in any sort order? 


Now you can use B-TREE-P to 
instantly search , sort , and scroll 
any data from any Pick file! 

Now you can instantly look up customers by name, street, Zip code, or any other 
field — not just by customer number. Now you can immediately find inventory 
entries by quantity, cost, or description — not just by part number. Whatever 
files you use, now you can instantly locate and display your data any way you 
want, without having to wait for endless SORTs and SELECTS. 



0 POLL 5251 

SCOTTYS HOUSPAIMTING 

2010 ADMIRAL HAY 

96001 

J RIZZO 5250 

ZENITH C011PUTER INC 

377 CORONADO DR 

96003 

12822 

fllRRQR POOLS 

6 SUZANNE LN 

96003 

11 SHE ID 2575 


14255 OKANOGAN CT 

96120 

J SKIJLLY 6955 

UN IU OF CALIFORNIA 

19700 ELISA AUE 

96271 

ft STEWART 4408 

SALT & PEPPER I1FG 

20774 MEADOW OAK. RD 

96328 

K Ufltin j 17377 

EARTHTECHN1CS 

BOX 2687 

96701 

11 ZEISLV ; 9038 

SUNSCOPE RESOURCES 

629 MAIN ST 

96706 

R HIDE i 6285 

NESTECH FINANCIAL SUCS 

1757-B JUNCTION AUE 

96720 

8 STERNS : 4478 

UESTECH FINANCIALSUCS: 

1757-B JUNCTION AUE 

96720 

S LUKAUW : 5362 
i 9746 

UIKING PUBLISHING 

470 N 3RD ST #2 

777 N 1ST ST #600 

96720 

96725 

11 RUSSELL ; 4529 
!10992 

RARE EDITIONS LTD 
SEAGATE TECHNOLOGIES 

2115 EUREKA HAY 196740 

1175 HILLTOP DR 196743 



Immediately display any record in any file just by typing one 
or more starting characters that match any field in the record. 

You can display not only a selected record, but also any 
previous and next records, using any sort order you specify. 

You can jump to any record in a file at any time, then browse 
through the file by scrolling up or down, a record at a time, 
or a page at a time. 

Ask us for a free copy of the story describing how B-TREE-P was 
originally developed and put to work. 


B-TREE-P is a proven collection of 
subprograms for using B-trees on 
Pick computer systems. B-trees 
allow any of the data in any of your 
Pick files to be instantly located 
and displayed in any sort order, 
without having to wait for SORT 
or SELECT commands. 


B-TREE-P and a few minor 
modifications to your existing data 
entry programs are all that is 
necessary for you to immediately 
be able to search, display, and 
browse through your data quickly 
and conveniently. 


No modifications to your existing 
datafiles are necessary! 


TREE-1 

B-trees for 
Pick systems . 



B-TREE-P includes all necessary 
source code for a B-tree system 
that works with any file: 

• Insertion subroutine 

• Deletion subroutine 

• Lookup subroutine 

• Previous/next subroutine 

• Complete instructions 

Plus, you receive the source code 
for a complete demonstration 
system that uses B-TREE-P to 
maintain a name and address file: 

Editor program for creating and 
changing names and addresses. 
Browser program for displaying 
names and addresses. 
Printer program for listing file 
items in order without having to 
wait for a sort. 


Here's how to order: 

Send your name, address, 
telephone number, and your 
check for $395 payable to 
Semaphore Corporation to: 

Semaphore Corporation 
207 Granada Drive 
Aptos, CA 95003 

We'll send you complete 
B-TREE-P source code 
listings and all necessary 
documentation. 

Call us at (408) 688-9200! 

WARNING: B-TREE-P includes a license 
agreement with copy, use, and transfer 
restrictions limiting your use of B-TREE-P 
to one computer at a time. 
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harddisk 


The 68020-based Altos 3068. 

If you're a PICK software developer or dealer, 
you owe it to yourself to see a demonstration 
of the forty-user Altos 3068. 

Call this number, and we'll make 
the arrangements. 

(800) ALTOS U.S. 


COMPUTER SYSTEMS 

2641 Orchard Parkway 
San Jose, CA 95134 

WE SUPPORT PICK. 


PICK is a trademark of Pick Systems. 







